home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / nasm095s.zip / OUTDBG.C < prev    next >
C/C++ Source or Header  |  1997-07-27  |  3KB  |  139 lines
  1. /* outdbg.c    output routines for the Netwide Assembler to produce
  2.  *        a debugging trace
  3.  *
  4.  * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
  5.  * Julian Hall. All rights reserved. The software is
  6.  * redistributable under the licence given in the file "Licence"
  7.  * distributed in the NASM archive.
  8.  */
  9.  
  10. #include <stdio.h>
  11. #include <stdlib.h>
  12. #include <string.h>
  13. #include <ctype.h>
  14.  
  15. #include "nasm.h"
  16. #include "nasmlib.h"
  17. #include "outform.h"
  18.  
  19. #ifdef OF_DBG
  20.  
  21. FILE *dbgf;
  22. efunc dbgef;
  23.  
  24. int segcode,segdata,segbss;
  25.  
  26. static void dbg_init(FILE *fp, efunc errfunc, ldfunc ldef)
  27. {
  28.   dbgf = fp;
  29.   dbgef = errfunc;
  30.   (void) ldef;
  31.   segcode = seg_alloc();
  32.   segdata = seg_alloc();
  33.   segbss = seg_alloc();
  34.   fprintf(fp,"NASM Output format debug dump - code=%d,data=%d,bss=%d\n",
  35.       segcode,segdata,segbss);
  36. }
  37.  
  38. static void dbg_cleanup(void)
  39. {
  40.   fclose(dbgf);
  41. }
  42.  
  43. static long dbg_section_names (char *name, int pass, int *bits)
  44. {
  45.     /*
  46.      * We must have an initial default: let's make it 16.
  47.      */
  48.     if (!name)
  49.     *bits = 16;
  50.  
  51.     if (!name)
  52.     return 0;
  53.  
  54.     if (!strcmp(name, ".text"))
  55.     return segcode;
  56.     else if (!strcmp(name, ".data"))
  57.     return segdata;
  58.     else if (!strcmp(name, ".bss"))
  59.     return segbss;
  60.     else
  61.     return NO_SEG;
  62. }
  63.  
  64. static void dbg_deflabel (char *name, long segment, long offset,
  65.                int is_global) {
  66.     fprintf(dbgf,"deflabel %s := %08lx:%08lx %s (%d)\n",name,segment,offset,
  67.         is_global ? "global" : "local", is_global);
  68. }
  69.  
  70. static void dbg_out (long segto, void *data, unsigned long type,
  71.               long segment, long wrt) {
  72.   long realbytes = type & OUT_SIZMASK;
  73.   long ldata;
  74.   int id;
  75.  
  76.   type &= OUT_TYPMASK;
  77.  
  78.   fprintf(dbgf,"out to %lx, len = %ld: ",segto,realbytes);
  79.  
  80.   switch(type) {
  81.   case OUT_RESERVE:
  82.     fprintf(dbgf,"reserved.\n"); break;
  83.   case OUT_RAWDATA:
  84.     fprintf(dbgf,"raw data = ");
  85.     while (realbytes--) {
  86.       id = *(unsigned char *)data;
  87.       data = (char *)data + 1;
  88.       fprintf(dbgf,"%02x ",id);
  89.     }
  90.     fprintf(dbgf,"\n"); break;
  91.   case OUT_ADDRESS:
  92.     ldata = 0; /* placate gcc */
  93.     if (realbytes == 1)
  94.       ldata = *((char *)data);
  95.     else if (realbytes == 2)
  96.       ldata = *((short *)data);
  97.     else if (realbytes == 4)
  98.       ldata = *((long *)data);
  99.     fprintf(dbgf,"addr %08lx (seg %08lx, wrt %08lx)\n",ldata,
  100.         segment,wrt);break;
  101.   case OUT_REL2ADR:
  102.     fprintf(dbgf,"rel2adr %04x (seg %08lx)\n",(int)*(short *)data,segment);
  103.     break;
  104.   case OUT_REL4ADR:
  105.     fprintf(dbgf,"rel4adr %08lx (seg %08lx)\n",*(long *)data,segment);
  106.     break;
  107.   default:
  108.     fprintf(dbgf,"unknown\n");
  109.     break;
  110.   }
  111. }
  112.  
  113. static long dbg_segbase(long segment) {
  114.   return segment;
  115. }
  116.  
  117. static int dbg_directive (char *directive, char *value, int pass) {
  118.   return 0;
  119. }
  120.  
  121. static void dbg_filename (char *inname, char *outname, efunc error) {
  122.     standard_extension (inname, outname, ".dbg", error);
  123. }
  124.  
  125. struct ofmt of_dbg = {
  126.     "Trace of all info passed to output stage",
  127.     "dbg",
  128.     dbg_init,
  129.     dbg_out,
  130.     dbg_deflabel,
  131.     dbg_section_names,
  132.     dbg_segbase,
  133.     dbg_directive,
  134.     dbg_filename,
  135.     dbg_cleanup
  136. };
  137.  
  138. #endif /* OF_DBG */
  139.